fix mispaste of comment

diff --git a/P2P/Http/Server.hs b/P2P/Http/Server.hs
index 88e6fa336795a1f8ed196dffe6e9eabad5ed105c..6a21c6e13c424077fe8dbc61680e11e6eec00f73 100644 (file)
--- a/P2P/Http/Server.hs
+++ b/P2P/Http/Server.hs
@@ -478,7 +478,7 @@ serveLockContent mst su apiver (B64Key k) cu bypass sec auth = do
                lockresv <- newEmptyTMVarIO
                unlockv <- newEmptyTMVarIO
                -- A single worker thread takes the lock, and keeps running
--              -- until unlock in order to keep the lock held.
+               -- until unlock in order to keep the lock held.
                annexworker <- async $ inAnnexWorker st $ do
                        lockres <- runFullProto (clientRunState conn) (clientP2PConnection conn) $ do
                                net $ sendMessage (LOCKCONTENT k)